﻿Imports System.Text.RegularExpressions

Public Class ImportForm

    Public fileNameList As New ArrayList


    Private Sub ImportForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.txtFileNames.Text = "ConvSourceKicker.xlsm"
        Me.txtFileNames.Text = Me.txtFileNames.Text + vbCrLf + "新しいフォルダー (2)\ConvSourceKicker1.xlsm"

    End Sub

    Private Sub btnExceute_Click(sender As Object, e As EventArgs) Handles btnExceute.Click


        Dim strFileNames() As String

        strFileNames = Regex.Split(Me.txtFileNames.Text, vbCrLf)

        Me.fileNameList.AddRange(strFileNames.ToList())

        Me.Close()
    End Sub
End Class